home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / PowerCrawler.lha / PowerCrawler / Developer / EmptyIO.s < prev    next >
Text File  |  1996-09-17  |  2KB  |  107 lines
  1. ;*******************************************************************
  2. ;*                                                                 *
  3. ;*           External IO-Routine for the PowerCrawler:             *
  4. ;*                                                                 *
  5. ;*             ?????????????????                          *
  6. ;*                                                                 *
  7. ;* Format:  ????                                                   *
  8. ;*          ????                                                   *
  9. ;*          ????                                                   *
  10. ;*                                                                 *
  11. ;*                                                                 *
  12. ;*******************************************************************
  13.  
  14.  
  15.     org    0
  16.  
  17.     FILE    "???????"            ; absolute Code will be
  18.                         ; saved into this file
  19.     incdir    "include"
  20.     include "exec/exec.i"
  21.     include    "dos/dos.i"
  22.     include "lvo/dos_lib.i"
  23.     include "lvo/exec_lib.i"
  24.     include    "misc/PowerCrawler.i"
  25.     
  26.  
  27. RECOGNITION:
  28.     dc.b     'PCEX'
  29.  
  30. ENTRY:
  31.     bra.s    Main
  32.     nop
  33.  
  34. ACTIONCODE:
  35.     dc.w    0
  36.  
  37. RETURNCODE:
  38.     dc.w    0
  39.     
  40. RESERVED1:
  41.     dc.l    0
  42. RESERVED2:
  43.     dc.l    0
  44. RESERVED3:
  45.     dc.l    0
  46.  
  47. ACTIONVAR:
  48.     dc.l    0                ;points to FileName
  49.  
  50.  
  51. ;********************************************************************
  52.  
  53. Main:
  54.     move.l    4(sp),a5            ;Get PCInformation-Structure
  55.     move.l    pci_DosBase(a5),a6
  56.  
  57.     move    ACTIONCODE(pc),d0
  58.     cmp    #PC_IO_LOADMAP,d0
  59.     beq.s    LoadMap
  60.     cmp    #PC_IO_SAVEMAP,d0
  61.     beq    SaveMap
  62.     cmp    #PC_IO_GETINFO,d0
  63.     beq    GetInfo
  64.     moveq    #PC_RETURN_ERROR,d0
  65.  
  66. ExitRoutine:
  67.     lea    RETURNCODE(pc),a0
  68.     move    d0,(a0)
  69.     rts
  70.     
  71. ;********************************************************************
  72.  
  73. LoadMap:
  74. ;    ?????
  75. ;    ?????
  76. ;    ?????
  77.         
  78.     moveq    #PC_RETURN_OK,d0
  79.     bra    ExitRoutine
  80.     
  81. ;********************************************************************
  82.  
  83. SaveMap:
  84. ;    ?????
  85. ;    ?????
  86. ;    ?????
  87.  
  88.     moveq    #PC_RETURN_OK,d0
  89.     bra    ExitRoutine
  90.  
  91. ;********************************************************************
  92.  
  93. GetInfo:
  94.     lea    ACTIONVAR(pc),a0
  95.     lea    MyInfoText(pc),a1
  96.     move.l    a1,(a0)
  97.     moveq    #PC_RETURN_OK,d0
  98.     bra    ExitRoutine
  99.     
  100. ;********************************************************************
  101.  
  102. MyInfoText:
  103.     dc.b    '?????',10
  104.     dc.b    '?????',10
  105.     dc.b    '?????',10
  106.     dc.b    0
  107.